######################################################
###Appendix Table C.1 ################################
######################################################
t1_m1 <- lm(supp_dem2 ~ unauthorised + age + gender +education, data = dat)
t1_m2 <- lm(supp_dem2 ~ violent     + age + gender + education, data = dat)
t1_m3 <- lm(supp_dem2 ~ arrest      + age + gender + education, data = dat)
t1_m4 <- lm(part_dummy2 ~ unauthorised + age + gender +education, data = dat)
t1_m5 <- lm(part_dummy2 ~ violent     + age + gender + education, data = dat)
t1_m6 <- lm(part_dummy2 ~ arrest      + age + gender + education, data = dat)

stargazer(t1_m1, t1_m2, t1_m3, t1_m4, t1_m5, t1_m6) 
